Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/RELATE2.PRG

Text File | 1985-07-29 | 4KB | 125 lines

clear
set colo to r+
@ 1,1 SAY "╔════════════════════════════════════════════════════════════════════════════╗"
@ 2,1 SAY "║  ─────────────────────────────────  ║  ─────────────────────────────────   ║"
@ 3,1 SAY "║   TEST1.DBF alias MAIN              ║   TEST2.DBF ali"
@ 3,56 SAY "as LOOKUP             ║"
@ 4,1 SAY "║  ─────────────────────────────────  ║  ─────────────────────────────────   ║"
@ 5,1 SAY "║                                     ║"
@ 5,78 SAY "║"
@ 6,1 SAY "║ KEY_FIELD       │ FIELD2      │ NO  ║ KEY_FIELD   │ F"
@ 6,56 SAY "IELD2 │ FIELD3 │ NO   ║"
@ 7,1 SAY "║ ────────────────│─────────────│──── ║ ────────────│────────│────────│───── ║"
@ 8,1 SAY "║                 │             │     ║             │"
@ 8,62 SAY "│        │      ║"
@ 9,1 SAY "║                 │             │     ║             │"
@ 9,62 SAY "│        │      ║"
@ 10,1 SAY "║                 │             │     ║             │"
@ 10,62 SAY "│        │      ║"
@ 11,1 SAY "║                 │             │     ║             │"
@ 11,62 SAY "│        │      ║"
@ 12,1 SAY "║                 │             │     ║             │"
@ 12,62 SAY "│        │      ║"
@ 13,1 SAY "║                 │             │     ║             │"
@ 13,62 SAY "│        │      ║"
@ 14,1 SAY "║                 │             │     ║             │"
@ 14,62 SAY "│        │      ║"
@ 15,1 SAY "║                 │             │     ║             │"
@ 15,62 SAY "│        │      ║"
@ 16,1 SAY "║                 │             │     ║             │"
@ 16,62 SAY "│        │      ║"
@ 17,1 SAY "║                 │             │     ║             │"
@ 17,62 SAY "│        │      ║"
@ 18,1 SAY "║                 │             │     ║             │"
@ 18,62 SAY "│        │      ║"
@ 19,1 SAY "║                 │             │     ║             │"
@ 19,62 SAY "│        │      ║"
@ 20,1 SAY "║════════════════════════════════════════════════════════════════════════════║"
@ 21,1 SAY "║ STATUS PANEL :"
@ 21,78 SAY "║"
@ 22,1 SAY "║"
@ 22,78 SAY "║"
@ 23,1 SAY "╚════════════════════════════════════════════════════════════════════════════╝"

select 8
use TEST1 alias MAIN

select 9
use TEST2 index TEST2 alias LOOKUP

** Set up RELATION

select MAIN

x = 9
y = 3
do while .not. eof()
set colo to br+
  @ x,y say KEY_FIELD
  @ x,y+18 say FIELD2
  @ x,y+32 say str(recno(),2)
  x = x+1
  skip
enddo

select LOOKUP

x = 9
y = 41
do while .not. eof()
  @ x,y say KEY_FIELD
  @ x,y+14 say FIELD2
  @ x,y+23 say FIELD3
  @ x,y+32 say str(recno(),2)
  replace row with x
  x = x+1
  skip
enddo

select MAIN

set relation to KEY_FIELD into LOOKUP
go top

@ 21,18 say '    RELATION is now SET to KEY_FIELD INTO LOOKUP. '
@ 22,18 say 'Relation between files is set up by issuing this command'
@ 22,18 say space(60)
@ 22,3 say 'Note Pointers are at the first record containing the same KEY information'
set color to  /w

@ 3,5 say 'TEST1.DBF alias MAIN'
@ 3,43 say 'TEST2.DBF alias LOOKUP'
set colo to gr+
@ 6,3 say 'KEY_FIELD'
@ 6,41 say 'KEY_FIELD'
* set color to w/

x = 9
y = 3
do while .not. eof()
  set color to  */w, ,
  @ x,y say key_field
  select LOOKUP
  @ row,41 say key_field
  set colo to w/
  wait  ''
  if x = 9
    @ 21,18 say space(50)
    @ 22,3 say space(70)
  endif
  @ row,41 say KEY_FIELD
  select MAIN
  @ x,y say KEY_FIELD
  skip
  x = x+1
  @ 21,18 say 'SKIP to Record '+str(recno(),2)+' (Sequential Search Through MAIN file)'
  @ 22,5 say 'Note Record Pointers pointing at records containing same KEY information'

enddo
SELE 8
USE
SELE 9
USE
SELE 1
set colo to w/
RETURN